home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / color.swg / 0010_Hi Intensity Colors #4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  723 b   |  29 lines
  1. {
  2.  I have seen a lot of applications that use highintensity
  3.  background colors in Text mode.  How do they do it??????
  4.  
  5. if you are using an EGA/VGA adapter then you can try :-
  6. }
  7.  
  8. Procedure SelectIntensity(Intense:Boolean);
  9. Var
  10.   R : Registers;
  11.  
  12. begin
  13.   if Intense then
  14.     R.BL := 0
  15.   else
  16.     R.BL := 1;
  17.   R.AX := $1003;
  18.   Intr($10, R);
  19. end;
  20.  
  21. {
  22.  TextBackGround wont do anything higher than 8 without blinking.
  23.  I want to be able to use colors like Black on Yellow and
  24.  things like that.  Anyone have any ideas???
  25.  
  26. Now, if you call "SelectIntensity(True)" then you can use high intensity
  27. background colours.  to display, say White On Darkgray, you can use
  28. "White+Darkgray*16" as your Textattr.
  29. }